home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / RoundedColumnSeriesTest.wr_ / RoundedColumnSeriesTest.wr
Text File  |  1998-10-22  |  2KB  |  82 lines
  1. #VRML V2.0 utf8
  2.  
  3. EXTERNPROTO Red [ exposedField SFFloat transparency ] "..\Appearances\SummerMaterials.wrl#color2"
  4.  
  5. EXTERNPROTO em7_RoundedColumnSeries [
  6.     field MFNode appearance
  7.     field SFInt32 xDimension
  8.     field SFFloat xSpacing
  9.     field SFFloat width
  10.     field SFFloat depth
  11.     field MFFloat height
  12.     field MFFloat floor
  13.     field SFFloat bevelRadius
  14.     field SFFloat creaseAngle
  15.     eventIn SFInt32 set_xDimension
  16.     eventIn SFFloat set_xSpacing
  17.     eventIn SFFloat set_width
  18.     eventIn SFFloat set_depth
  19.     eventIn MFFloat set_height
  20.     eventIn MFFloat set_floor
  21.     eventIn MFNode set_appearance
  22. ] "..\VR_GRAPH.wrl#em7_RoundedColumnSeries"
  23.  
  24. EXTERNPROTO em7_MultiFloatInterval [
  25.     field MFFloat value
  26.     field SFInt32 blockSize
  27.     field SFInt32 index
  28.     eventIn SFInt32 set_index
  29.     eventOut SFInt32 index_changed
  30.     eventOut MFFloat value_changed
  31. ] "..\VR_GRAPH.wrl#em7_MultiFloatInterval"
  32.  
  33. EXTERNPROTO em7_Slider [
  34.     field SFFloat height
  35.     field SFFloat radius
  36.     field SFInt32 min
  37.     field SFInt32 max
  38.     field SFInt32 value
  39.     eventIn SFInt32 set_min
  40.     eventIn SFInt32 set_max
  41.     eventIn SFInt32 set_value
  42.     eventOut SFInt32 value_changed
  43. ] "..\VR_UI.wrl#em7_Slider"
  44.  
  45. DEF COL em7_RoundedColumnSeries {
  46.     appearance [
  47.         Red {}
  48.         Red { transparency 0.3 }
  49.         Red { transparency 0.6 }
  50.         Red { transparency 0.6 }
  51.         Red { transparency 0.3 }
  52.         Red {}
  53.     ]
  54.     xDimension 6
  55.     xSpacing 1
  56.     width 0.4
  57.     depth 0.7
  58.     bevelRadius 0.15
  59. }
  60.  
  61. Transform {
  62.     translation 0 -0.5 1.5
  63.     rotation 0 0 1 -1.5708
  64.     children [
  65.         DEF SLIDER em7_Slider {
  66.             height 5
  67.             min 0
  68.             max 15
  69.             value 0
  70.         }
  71.     ]
  72. }
  73.  
  74. DEF MULTI_FLOAT em7_MultiFloatInterval {
  75.     value [1.1, 2.2, -1.55, 0.4, 1.1, 1.2, -0.8, 0.2, 1.3, 1.5, -2.5, 2.8, 3.4, 3.6, 2.7, -0.5, 0.8, 1.2, -1.1, 0.15, 0.4, 1, 1.2, -1, 0.8, 0.3, 0.5, 0.5]
  76.     blockSize 8
  77.     index 0
  78. }
  79.  
  80. ROUTE SLIDER.value_changed TO MULTI_FLOAT.set_index
  81. ROUTE MULTI_FLOAT.value_changed TO COL.set_height
  82.